home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / batch / wbtsort / sort.ptb < prev   
Encoding:
Text File  |  1991-06-26  |  843 b   |  54 lines
  1. ; Example interchange sort by Sam High
  2. ; Shows simulated Arrays 
  3. ;  
  4. array1='sam'
  5. array2='albert'
  6. array3='zoot'
  7. array4='polly'
  8. array5='frank'
  9. array6='doug'
  10. array7='lionel'
  11. array8='sam'
  12. array9='albert'
  13. array10='albert'
  14. array11='zoot'
  15. array12='polly'
  16. array13='frank'
  17. array14='doug'
  18. array15='lionel'
  19. ;debug(@ON)
  20. n=15
  21. inchange=@TRUE
  22. pass=1
  23. :Passit
  24. if !((pass <= n-1) && inchange) then goto Done
  25.   inchange=@FALSE
  26.   j=1
  27. :Innerloop
  28.   if j > n-pass then goto IncPass
  29.   k=j+1
  30.   if array%j% <= array%k% then goto IncJ
  31.   inchange=@TRUE
  32.   k=j+1
  33.   hold=array%j%
  34.   array%j%=array%k%
  35.   array%k%=hold 
  36. :IncJ
  37.   j=j+1
  38.   goto Innerloop
  39. :IncPass
  40.   pass=pass+1
  41.   goto Passit
  42.  
  43. :Done
  44. i=1
  45. k=''
  46. :GetIt
  47.   if i > 7 then goto Showit
  48.   k=strcat(k,' ',array%i%)
  49.   i=i+1
  50. goto GetIt
  51.  
  52. :Showit
  53.   Message('Sorted Array',k) 
  54.